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DDDDDDDD RRRRRRRR SSSSSSSS_ LL AAABAA VV VV EEEEEEEEEE 

DDDDDDDD RRRRRRRR SSSSSSSS_ LL AAAAAA VV VV EEEEEEEEEE 

DD DD RR RR SS LL Aa AA VV VV EE 

dD DD RR RR SS LL AA AA VV VV EE 

OD DD RR RR SS LL AA AA VV VV EE 

dD DD RR RR SS LL AA AA VV VW EE 

DD DD RRRRRRRR SSSSSS LL AA AA VV VV EEEEEEEE 

DD DD RRRRRRRR SSSSSS LL AA AA VV VV EEEEEEEE 

DD DD RR RR SS LL AAAAAAAAAA VV VV EE 
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DD DD RR RR SS L Ab Aa VV VV EE cece 
0D DD RR RR $$ LL AA AA VW VV EE ceee 
DDDDDDDD RR RR SSSSSSSS LLLLLLLLLL AA AA v EEEEEEEEEE eoee 
DDDDDDDD RR RR SSSSSSSS LLLLLLLLL AA AA VV EEEEEEEEEE cece 
FFFFFFFFFF 000000 RRRRRRRR 

FFFFFFFFFF 000000 RRRRRRRR 

FF 00 OO RR 

FF 00 OO RR RR 

FF 00 0O RR RR 

FF 00 OO RR RR 

FFFFFFFF 00 O00 RRRRRRRR 

FFFFFFFF 00 00 RRRRRRRR 

FF 00 00 RR RR 

FF 00 00 RR RR 

FF 00 00 RR RR 

FF 00 00 RR RR 

FF 000000 RR RR 

FF 000000 RR RR 
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| 
C DRSLAVE 
CRRA eee A AREER AERA AAAA RARER AAAAAAAAR ERATE KATE eee terete eeeeee 
Ce | 
C* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * | 
C* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . 
Cs ALL RIGHTS RESERVED. * 
w | 
C* THIS SOFTWARE Is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED . 
C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
C* INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY . 
C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
C* 0 SON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
Ce TRANSFERRED. . 
* oe 
C* THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE * 
C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
Ce CORPORATION. . 
+ ® 
C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
Ce SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL ‘ 
+. ® 
Cc inaldiaieaieniiniasniindiiatdheiehiebadeeesdebinbemanmmanssinmeninin saliianisistiietainenien 


COPYRIGHT (c) 1978 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Ne pe AND WITH THE 


C 
C 
C 
C 
C 
C 
C 
: 
5 TRANSFERRED. 

C THE INFORMATION IN THIS SOFTWARE IS w with! TO CHANGE WITHOUT NOTICE 
C AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
é CORPORATION. 
3 DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


+¢ 
FACILiTY: DRCOPY -- DR32 example file transfer program 
ABSTRACT: 
This set of routines constitutes the Slave portion of the 
DRCOPY file transfer example program. 


ENVIRONMENT: : oe 
These routines run in User mode; no privileges are necessary. 


AUTHOR: Trudy Matthews, CREATION DATE: July, 1979 
MODIFIED BY: 


N 


Page 


sf 
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SUBROUTINE SFQ_STARTGET(DEVMSG) 
C 
C This subroutine is called when the Slave receives a ‘start read 
C oreret ‘on. control te tg This routine opens an existing file. 
C If the OPEN is successful, then send a confirmation contro eg so 
: to the Master program and initialize the buffer management variables 
C INPUTS: 
C A Device Message of the format: 
C 31 0 
C tescee meee ee i ee ee eee mene se ene eose = + ' 
: i type = MS SG_ STARTGET ' 
: ' number of | master buffers ' | 
MOREE SOedeeasSeoeseeneuaen} 
C : { 
C // file attribute // 
C ' information H 
C pew eeeeeeeeeoesceeececeseeesecsn + | 
C 
C IMPLICIT INPUTS | 
C IMPLICIT OUTPUTS: | 
C The file specified by the file attribute information is opened, 
: and an RMS read from the file into the first buffer is issued. | 
INCLUDE ‘ SYSSLIBRARY: XFDEF .FOR/NOLIST' 
INCLUDE ‘DRCOPY.PRM' ‘ 
BYTE MBFRS(BUFSIZ, NUM_MBFRS) C 
BYTE SBFRS(BUFSIZ, NUM_SBFRS) | 
INTEGER*2 PTR ‘index into ring of buffers C 
‘. INTEGER*2 RMSCOUNT ‘number of buffers in queue C § 
INTEGER*#4 ADDRMSG(NUM_ SBFRS+2) '"Here are my bfr addrs" | Ca 
i‘device message Cc 
INTEGER®4 CONTXT (30) ‘context array C1 
INTEGER®4 DEVMSG(32) ‘input device message C ( 
INTEGER®4 LASTCNT i# bytes in last buffer C1 
INTEGER#4 STATUS C¢ 
INTEGER*4 SYSSCLREF ‘integer function | Cr 
LOGICAL*1 FLAG, SLVDONE, ENDISN AR : { 
COMMON /MS_SHARE/ CONTXT, MBFRS, SBFRS 
COMMON /SLU/ = SLVDONE 
COMMON /SLAVE/ RMSCOUNT, PTR, FLAG | 
COMMON /SLVWRT/ LASTCNT, ENDISNEAR 
EXTERNAL SLV_OPEN ‘macro routine; does RMS OPEN 
EXTERNAL stv" COPYF AB jagce routine; alters FAB 
EXTERNAL edly 'DR32 support routine 
EXTERNAL FINISH ‘called to end transfer 


EXTERNAL St escuner SS$_IVBUFLEN 
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; Check that master buffers and slave buffers agree in size 


IF (DEVMSG(2) .NE. BUFSIZ) THEN 
CALL SLVFINISH(SMMSG_ERROR, LOC (SS$_IVBUFLEN)) 


END IF 


C 
: Open the file 
CALL SLV_OPEN(DEVMSG, STATUS) ‘contains FAB 
If (.NOT: STATUS) THE 
CALL SLV_FINISH(SM_MSG_ERROR, STATUS) 


END IF 


C 
3 Send a packet notifying Psster of successful open 
ADDRMSG(1) = SM_MSG_BFRADRS 
= Serr - 


ADDRMSG(2) 

dO 1 1 = 1, NOM_SBFRS ‘build device msg that conveys 
ADDRMSG éGtie2) = ZLOC(SBFRS(1,1)) ‘buffer addresses 

10 CONTINUE 

eee ak oh B 

1 XF SK _PKT _WRTCM, ‘write control message function 

1 ‘default index & difsize 

1 ADDRMSG, ;send addresses of buffers 

1 (NUM_ SBFRS + 2) * 4, ‘size of ADDRMSG in bytes 

1 ino Logms sg 

1 356, ieeden” = insert pkt at head of q 

1 a 'no action, actparm 

1 STATUS) 

IF (.NOT., STATUS) THEN 


CALL SLV_FINISH(SM_MSG_ERROR, STATUS) 
RETURN 
END IF 


C 
3 Send a control message to Master containing File Attributes 
DEVMSG(1) = SM_MSG 


CAL L Sy cOPYF AB (DEVRSG) ‘put attributes in same devmsg 
CALL Perc veLe 

1 XFSK_PKT_WRTCM, ‘write control message function 
1 'no index, difsize 

1 bEVMSG, ‘send file attributes 

1 128, ‘size of device message 

1 'no log message 

1 256, ‘modes = insert pocket at head 
1 'no action, actparm 

1 Sfatus) 


AOMOMOON 
Pet OE lh 


COOL 
— 
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IF (.NOT. STATUS) THEN 
CAL then FINISH(SM_MSG_ERROR, STATUS) 


END IF 


C 
3 Initialize the buffer management variables 


FLAG = GET 

RMSCOUNT = NUM_SBFRS !# empty bfrs available for 
: slave to fil 

PTR = 1 !index of next bfr to fill 

STATUS = SYSSCLREF(ZVAL(SLVEF)) !clear slave event flag 


SLVDONE = LSE. 
ENDISNEAR = rAPALSE. 


RETURN 
END 
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¢ SUBROUTINE SFQ_GOGET 
C Tete routine is colted Pyr ing a +4 operation when the Master routine 
Cs eg that his initialization is complete and he is ready to accept 
e buffers of data. 

INCLUDE ‘DRCOPY.PRM/NOLIST' 

BYTE MBFRS(BUFSIZ, NUM_MBFRS) 

BYTE SBFRS(BUFSIZ, NUM_SBFRS) 

peibeenes al, 

INTEGER®* MSCOUNT 

INTEGER®4 CONTRT C30) 

INTEGER*4 STATUS 

LOGICAL®1 FLAG 

EXTERNAL SLV_CHKRMS 'RMS completion routine 

COMMON /MS_SHARE/ CONTXT, MBFRS, SBFRS 

COMMON /SLAVE/ RMSCOUNT, PTR, FLAG 


C 
: Issue READ to get things going 


cat, SLV_READ(SBFRS(1,PTR) ,BUFSIZ,SLV_CHKRMS,SLV_CHKRMS,STATUS) 
IF (.NOT? STATHS) CALL SLV_FINISH(SM_ASG ERROR, STATUS) 


RETURN 
END 


Berar ere aah Soe a 
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‘ SUBROUTINE SFQ_STARTPUT (DEVMSG) 
C This subroutine is called when the Slave receives a ‘'start write 
C operation’ control message. This routine must create a file. 
C If the file is euceeeety Ly created, then send a confirmation 
C message to Master, initialize the buffer management variables, and 
C return. The process waits for a control message from Master to 
C activate. 
C 
C INPUTS: 
3 Device 2 Mart from Master of the eae 
C eee eeeeeeeoeeeceeeooeeseceseees} 
: : type = MS_MSG_ STARTPUT | i 
: } size of master buffers ! 
C : ' 
C 4/ file attribute // 
C : information : 
C twee me cen ne mere een mn nw awn enone 3 
C 
C IMPLICIT INPUTS 
C IMPLICIT OUTPUTS: 
: The tile specified by the device message is created. 
INCLUDE ‘SYSSLIBRARY: 4D ;FOR/NOLIST" 
INCLUDE ‘DRCOPY.PRM/NOLIST 
BYTE MBFRS(BUFSIZ, NUM_MBFRS) 
BYTE SBFRS(BUFSIZ, NUM_SBFRS) 
INTEGER*2 RMSCOUNT, PTR 
INTEGER®4 CONTXT (36) 
INTEGER*®4 ADDRMSG(NUM_SBFRS+2) 
INTEGER*4 DEVMSG(32) ~ ‘input device message 
INTEGER®4 LASTCNT '# bytes in Last buffer 
INTEGER®4 STATUS 
INTEGER®4 SYSSCLREF ‘integer function 
LOGICAL®1 FLAG, SLVDONE, ENDISNEAR 
COMMON /MS une / CONTXT, MBFRS, SBFRS 
COMMON /SLV/ E 
COMMON /SLAVE/ Bh MSCOUNT, LAG 
COMMON /SLVWRT/ LASTCNT, ENDISNEAR 
EXTERNAL SLV_CREATE ‘macro routine; does RMS CREATE 
EXTERNAL KF SPRTOLD :DR 2 support routine 
EXTERNAL SLV_FINISH ‘called to end transfer 
EXTERNAL SYSSCLREF. $S$_IVBUFLEN 


C 
| Check that the sizes of Master and Slave buffers agree 
IF (DEVMSG(2) .NE. BUFSIZ) THEN 


COON 


H 
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LV_FINISH (SM_MSG_ERROR, %LOC(SS$_IVBUFLEN) ) 


er 
r 
zu 


C 
e Create the file 
CALL SLV oCREATE us pe STATUS) 
If (.NOT? STATUS) THEN 
abt stv. FINISH(SM_MSG_ERROR, STATUS) 
END If 


C 
3 Send a packet notifying Master of a successful open 


ADDRMSG(1) = SM_MSG_BFRADRS 
ADDRMSG(2) = wn SBFRS 
DO 1 all buffers do 


I = SBFRS 
ADDRMSG(1 #2) fLoc(serrger. PD) 'get address 
10 CONTINUE 


a af SS 

1 XF SK _PKT _WRTCM, ‘write command message function 
1 'no index,difsiz 

1 ADDR MSG 'send addresses of buffers 

1 (NUM_SBFRS*2)*4, isize of ADDRMSG in bytes 

1 'no log message 

1 356, ‘modes = insert packet at head 
1 . 'no action, actparm 

1 §faTus) 


IF (.NOT. STATUS) THEN 
CALL SLV_FINISH(SM_MSG_ERROR, STATUS) 


END IF 


C 
: Initialize the buffer management varaibles 


STATUS = SYSSCLREF (ZVAL(SLVEF)) 
IF (.NOT. STATUS) TH 
Sethe at ER OE _FOROR STATUS) 


END IF 
SLVDONE = .FALSE. ‘transfer is not complete 
ENDISNEAR = .FALSE. ‘set when Master sends 
'"end of transfer’ cntrl msg 
FLAG = PUT 
RMSCOUNT = 0 '# bfrs available for slave 
'to empty 
PTR = 1 'next bfr to empty 


RETURN 
END 


DR 


SUBROUTINE SFQ_PNXTBFR(DEVMSG) 


This routine is called when the Slave receives a device message 
‘process your next buffer’ 


INPUTS: 
Device Message; contains message type MS_MSG_PNXTBFR. 


CIT INPUTS 
CIT OUTPUTS: 
Buffer management data updated to reflect the fact that the 
Master pes po has completed a DR-transfer of another Slave 
buffer, and now the buffer is “evailable to the RMS process. 


IMPLI 
IMPLI 


POPOOOOOOOOOOLN 


INCLUDE "DRCOPY.PRM/NOLIST‘ 


BYTE MBFRS(BUFSIZ, NUM_MBFRS) 

BYTE SBFRS(BUFSIZ, NUM_SBFRS) 

INTEGER*2 RMSCOUNT ‘if GET, # bfrs for slave to fil 
‘if PUT, # bfrs to empty 

INTEGER*2 PTR 'PTR = current buffer 

INTEGER*®4 DEVMSG(32) ‘not used 

INTEGER®4 CONTXT (30) 

INTEGER®4 STATUS 

LOGICAL®1 FLAG, SLVDONE 

COMMON /MS_SHARE/ CONTXT, MBFRS, SBFRS 

COMMON /SLV7 SLVDO 

COMMON /SLAVE/ RMSCOUNT, PTR, FLAG 

EXTERNAL SLV_READ ‘macro routine; does RMS READ 

EXTERNAL SLV “URITE ‘macro routine; does RMS WRITE 

EXTERNAL SLV—CHKRMS ; RMS success completion routine; 
‘checks for end of file on read 

EXTERNAL SLV_RMSERR iRMS error completion routine 

EXTERNAL SLV_BUF DONE 'RMS completion routine 

EXTERNAL SLV~F INISH ‘called to end transfer 


If transfer has prematurely aborted, simply return 
IF (SLVDONE) RETURN 


OOo 


Else record the fact that there exists another buffer for RMS to 
operate on 


SOON 


RMSCOUNT = RMSCOUNT + 1 ‘another jete to fill/empty 
IF CRMSCOUNT .EQ. bie ‘- start or restart RMS 
IF (FLAG .EQ. THEN 
CALL SLV “uRITe goctg “ng BUFSIZ 


SLV_BUFDONE, SLV_RMSERR, STATUS) 
IF (.NOT. STATUS) Care stv. CRT SA (SM_MSG_ERROR, STATUS) 
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ELSE 
CALL SLV.READ (SBFRS (1, PTR), | 
LV_CHKAMS, SLV TUS) 
enp Tf CoNOT. STATUS) CALL SLV{FINISH RROR, STATUS) 


RETURN 
END 


DRSLAVE .FOR; 1 


to/from disk 
process. This 
read/wri 


stata’ >| INPUTS 


IMPLICIT OUTPUT 


AOOOAOOOOOOOOOOOLO 


INCLUDE ° 
BYTE 
BYTE 
INTEGER*2 


EXTERNAL 
EXTERNAL 
EXTERNAL 


EXTERNAL 


EXTERNAL 


makin 


SUBROUTINE SLV_BUF DONE 


This routine is called after RMS has completed a read/write operation 
another slave buffer available to the Master 


& 
16-SEP-1984 17:09:15.59 Page 


rout tne must send a control message to the Master 


$: 


eh Pi him the next buffer is available, then issue another RMS 
e. 


MS process has completed the transfer of a buffer. 


Buffer management updated: another buffer available to 
DR-transfer process. 
If possible, start RMS processing next buffer in RMS queue. 


SYSSLIBRARY:XFDEF .FOR/NOLIST* 


INCLUDE ‘DRCOPY.PRM/NOLIST 


MBFRS(BUFSIZ, NUM_MBFRS) 
SRFRS(BUFSIZ, NUM_SBFRS) 


oe 


PTR 
CONTXT(30) 
LASTCNT 


STATUS 
FLAG, SLVDONE, ENDISNEAR 


LV/ —s SLVDO 


/S 
COMMON /SLAVE/ RMSCOUNT, PTR 
COMMON /SLVWRT/ LASTCNT, END 


SLV_READ 
SLV-WRITE 
SLV~CHKRMS 


SLV_RMSERR 
XF SPKTBLD 
CALL_ BUF DONE 
SLV_FINISH 
SLV-NORMAL 


SS$_NORMAL 


C 
C Send control message ‘‘process my next buffer'' 


COMMON /MS_SHARE/ caene MBFRS, SBFRS 


FLAG 
NEAR 


'smacro routine; does RMS READ 
‘macro routine; does RMS WRITE 
'RMS success completion routine; 
‘checks for end of file on read 
'RMS error completion routine 
'DR32 support routine 

'RMS success completion routine 
‘called to end transfer 

'RMS completion routine; ' 
‘successful end of PUT operation 


C 
C If transfer has prematurely aborted, simply return 
IF (SLVDONE) RETURN 


11 


LAl 


eee 
-_ 
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: Insert this command packet at the head of the input queue 


GALL KFSeKTOLD 

1 XFSK_PKT_WRTCM, ‘write control message function 
1 . 'no index, difsize 

1 §M_MSG_PNXTBFR, islave ‘next buffer’ devmsg 

1 2. ‘size of device message 

1 ino Logms9 

1 356, ‘modes = insert pkt at head 

1 'no action, actparm 

1 §fatus) 


IF (.NOT. STATUS) THEN 
CAL tt. FINISH(SM_MSG_ERROR, STATUS) 


END IF 

PTR = PTR + 1 step to next buffer 

IF (PTR .GT. NUM ~ ae PTR = 1 iinerement mod(NUM_SBFRS) 
RMSCOUNT = RMSCOONT - ‘slave finished a Buffer 


C 
C The ENDISNEAR flag is suet only ray Hes a PUT operation, when the 

C device message ‘this is the last buffer’ is received. If the Last 
C buffer has been received and is also the only buffer left in the 

C queve (RMSCOUNT = 1), then issue the last write. 


IF maned ag AND, as -EQ. 1) THEN 'this is last buffer 
IF (LASTCNT -GT. 0) THEN 
CALL SLV_WRITE MS ely EG PTR), LASTCNT 
1 SLV_NOR MAL, SLV/RMSERR, STATUS) 
IF (.NOT. SrAvus 
1 CALL SL. FINISH (SM_MSG_ERROR, STATUS) 
ELSE '0 bytes in last buffer transferred 
CALL SLV_FIN SHSM -MSG_PLSTBFR, 1 


END IF 


ELSE 'this is not last buffer 
IF scams | ae -NE. 0) THEN 
IF (FLAG .€Q. PUT) THEN 
CALL SLV_WRITE (SBFRS(1,PTR), BUFSIZ, 


1 TALL BUF DONE» SLV RMSERR STATUS) 
IF (.NOT. STATUS) C cstv N 

1 =r (SM G ERROR. STATUS) 
CALL SLV READ | (saens(t. PTR), BUFSIZ 

1 SLV_C Suv CHERAS - STATUS) 
IF (.NOT. STATUS) “tL NISH 

1 MSG SERROR STATUS) 

END IF 
END IF 
END IF 


RETURN 
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END 


M 
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SUBROUTINE CALL BUF DONE 


This subroutine exists because 
(1) SLV_BUFDONE must specify itself as its success 
RMS completion routine, an 
(2) FORTRAN subroutines may not reference themselves. 
So SLV_BUFDONE specifies this routine as its completion routine. 


DOQOQOOOMN 


| 
CALL SLV_BUF DONE 
RETURN 
END 


| 
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IF (RMSTAT .EQ. RMS$_NORMAL) THEN 
IF (XFRCNT .EQ. BUFSIZ) THEN ‘not finished; read more 
CALL SV. BUF DONE 


SUBROUTINE SLV_CHKRMS 
INCLUDE ‘DRCOPY.PRM/NOLIST‘ | 
PARAMETER RMS$_NORMAL = °10001'X | 
PARAMETER RMS$S_EOF = '1827A'X | 
INTEGER*4 XFRCNT | 
INTEGER®4 RMSTAT | 
INTEGER*®4 GETBYTCNT 
INTEGER*®4 GETRMSTAT | 
C 
C SLV_CHKRMS is only called during GET operations. It is called to | : F 
C determine if end-of-file was encountered during the read by ° 
C comparing the requested transfer byte count (BUFSIZ) to the actual 
3 transfer count (returned by function subroutine GETBYTCNT). 11 
! 
RMSTAT = GETRMSTAT() ‘returns RMS completion status | 
XFRCNT = GETBYTCNT() 'returns # of bytes transferred | 


END IF 

ELSE IF (RMSTAT .NE. RMS$_EOF) THEN terror 
CALL SLV_FINISH (SM_MSG_ERROR, RMSTAT) 
RETURN 


END IF 


a full buffer of data or by receiving RMS$_EOF status code. 
Notify far-end that we just read the last Buffer. 


FOO 


CALL SLV_LASTRD (XFRCNT) 


| 
| 
| 
Only get here if end-of-file was found, either by reading less than | 
RETURN 
END 
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SUBROUTINE SFQ_PLSTBFR(DEVMSG) 


Cc 
C This subroutine is called when ‘‘last buffer'’ control message 
: is received from Master. (Only during a PUT operation) 
INCLUDE ‘SYSSLIBRARY:XFDEF .FOR/NOLIST' 
INCLUDE ‘DRCOPY.PRM/NOLIST' 
BYTE MBFRS(BUFSI7, NUM_MBFRS) 
BYTE SBFRS(BUFSIZ, NUM_SBFRS) 
fol dae RMSCOUNT 
INTEGER* PTR 
INTEGER*®4 CONTXT (30) 
INTEGER*4 DEVMSG(32) Naps device message 
INTEGER*®4 LASTCNT 'tholds last byte count 
INTEGER*®4 STATUS 
LOGICAL*1 FLAG, SLVDONE, ENDISNEAR 


COMMON /MS _SHARE/ CONTXT, MBFRS, SBFRS 
COMMON /SLV/ = SLVDONE 

COMMON /SLAVE/ RMSCOUNT, PTR, FLAG 
COMMON /SLVWRT/ LASTCNT. ENDISNEAR 


EXTERNAL XFSPKTBLD,SLV_CLOSE, SLV_RMSERR, SLV_FINISH 
EXTERNAL SLV_NORMAL 

If transfer has prematurely aborted, simply return 

IF (SLVDONE) RETURN 


OOO 


Since this is a PUT operation, the ‘‘last buffer’ control message simply 
means that the last buffer to be written to disk has arrived and is 

on the end of the queue of buffers waiting for the RMS routine to 
write them to disk. If this buffer is the only one left in the queue 
(i.e. if RMSCOUNT = 1) then call SLV_WRITE to write the last buffer 

to disk. If there are other buffers to be written before this 

one, simply return -- the ENDISNEAR flag signals SLV_BUFDONE to 

notice when it is about to write out the Last buffer, and it will 
finish up the transfer instead. 


FAOOOOOOOOOLN 


LASTCNT = DEVMSG(2) ‘save last byte count 
ENDISNEAR = .TRUE. ‘signal last buffer in 
RMSCOUNT = RMSCOUNT + 1 !Last buffer 
IF (RMSCOUNT .EQ. 1) THEN 
CALL SLV_WRITE (SBFRS(1,PTR), LASTCNT 
LV_NORMAL, SLV_RMSERR, STATUS) 
END IF IF (.NOT. STATUS) ALL SLV_FINISH (SM_MSG_ERROR, STATUS) 


RETURN 
END 
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SUBROUTINE SLV_LASTRD (XFRCNT) 


This subroutine is called when EOF is detected while reading from 
disk. SBFRS(PTR) is the last buffer filled; XFRCNT is the number of 
bytes of good data it contains. , 

Send ‘‘process my next(last) buffer’’ control msg to Master; 
Close the file; 
Set ‘slave tranfer complete’’ flag (SLVDONE) 


FOOOOOOON 


INCLUDE "SYSSLIBRARY:XFDEF .FOR/NOLIST' 

INCLUDE "DRCOPY.PRM/NOLIST’ 

BYTE MBFRS(BUFSIZ, NUM_MBFRS) 
BYTE SBFRS(BUFSIZ, NUM_SBFRS) 

INTEGER®2 RMSCOUNT 
INTEGER*®2 PTR 

INTEGER®4 CONTXT (30) 
INTEGER®4 ENDMSG( 2) ‘process Last bfr; bufsiz'’ msg 

INTEGER®4 XFRCNT ipytes of data in last buffer 

INTEGER®4 STATUS 
LOGICAL®1 FLAG, SLVDONE | 


COMMON /MS_SHARE/ CONTXT, MBFRS, SBFRS 
COMMON /SLY/  SLVDO 
COMMON /SLAVE/ RMSCOUNT, PTR, FLAG 


EXTERNAL XFSPKTBLD,SLV_CLOSE 


C 
: If transfer has prematurely aborted, simply return 
IF (SLVDONE) RETURN 


ENDMSG(1) = SM_MSG_PLSTBFR Last buffer” | 
ENDMSG(2) = XFRCNT '# of bytes of good data 


‘on Bohan Sg 

1 XFSK_PKT_WRTCM, ‘write control message function 
1 . 'no index, difsize 

1 ENDMSG. 

1 . ‘size in bytes of ENDMSG 

1 . !no log message ; 

1 . !modes = insert packet at tail 

1 ‘(Last buffer must be in order) 
1 'no action, actparm 

1 Sfatus) 


CALL SLV_SHUTDOWN 
RETURN 
END 
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SUBROUTINE SLV_NORMAL 


This routine is called when RMS completes the transfer of th 
slave buffer to disk during a PUT operat on. — 


OOOO 


C 
: Finish up, sending success code (=1) to Master 
INCLUDE ‘DRCOPY.PRM/NOLIST' 


CALL SLV_FINISH (SM_MSG_PLSTBFR, 1) 
RETURN 
END 


| F 
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SUBROUTINE SLV_FINISH (MSGCODE, MSG) 


This routine is called to send a status message to Master and then 
halt and clean up the slave transfer. 


COOOL 


INTEGER®4 MSGCODE 
INTEGER®4 MSG 


EXTERNAL SLV_SENDSTAT, SLV_SHUTDOWN 

CALL SLV_SENDSTAT (MSGCODE, MSG) 'send status to Master 
CALL SLV_SHUTDOWN tend of slave transfer 
oo" 


wef 
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DRSLAVE .FO2;1 


SUBROUTINE SLV_SENDSTAT (MSGCODE, MSG) 


This routine provides a centralized routine to call to send status | 
packets to Master routine. 


COOOL 


INCLUDE ‘DRCOPY.PRM/NOLIST' 
INCLUDE ‘SYSSLIBRARY:XFDEF .FOR/NOLIST' 


BYTE MBFRS(BUFSIZ, NUM_MBFRS) 
BYTe SBFRS(BUFSIZ, NUM_SBFRS) 


| 
INTEGER®2 MSGCODE 
INTEGER*®4 MSG | 
INTEGER®4 CONTXT(30) 
INTEGER®4 DEVMSG(2) | 
COMMON /MS_SHARE/ CONTXT, MBFRS, SBFRS 
EXTERNAL XFSPKTBLD 
DEVMSG(1) = MSGCODE 
DE VASC(2) = MSG 
a whe) J ( 
1 XF SK _PKT _WRTCM, ‘write control message function 
1 'no index, size | 
1 DEVMSG, ‘device message 
1 8 'size in bytes of devmsg 
1 256) ‘modes = insert at head 


C 

: If chis fails, there is no way to signal Master 
RETURN 
END 
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SUBROUTINE SLV_ SHUTDOWN 
: End of transfer 

INCLUDE ‘DRCOPY.PRM/NOLIST' 

LOGICAL*1 SLVDONE 

COMMON /SLV/ SLVDONE 

CALL SLV_CLOSE 


SLVDONE = .1RUE. 
CALL SYSSSETEF (2VAL(SLVEF)) 


RETURN 
END 


eee. 


LAE 
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